home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 52 / 052.d81 / trail boot (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  690b  |  26 lines
  1. 0 poke53280,6:poke53281,6
  2. 1 ifxthen5
  3. 2 print"[147][208]lease wait while loading..."
  4. 5 ifx=0thenx=1:load"copymem.o",8,1
  5. 6 ifx=1thenx=2:load"bload.o",8,1
  6. 7 bl=828:hgr=51459:cm=14200:
  7. 8 sysbl,16384,"trail west.pic":
  8. 10 poke249,224:poke250,204
  9. 20 poke251,0:poke252,64
  10. 30 poke253,0:poke254,0:print"[147]"
  11. 35 poke53281,0
  12. 36 sys cm,24576-8192,57344,8000
  13. 37 sys cm,32576-8192,52224,1000
  14. 38 sys cm,33576-8192,55296,1000
  15. 50 poke53281,peek(34576-8192)
  16. 60 poke53280,6:poke56576,0:poke53272,56:poke53265,peek(53265)or32
  17. 61 poke53270,peek(53270)or16
  18. 65 ford=1to 3000:next
  19. 70 f$="trail west"
  20. 80 a$="loadf$,8:"+chr$(0)
  21. 83 fori=1tolen(a$):poke511+i,asc(mid$(a$,i)) :next
  22. 84 poke781,255:poke782,1
  23. 85 poke631,19:poke632,asc("r"):poke633,asc("u"):poke634,asc("n")
  24. 86 poke635,asc(":"):poke636,13:poke198,6
  25. 87 sys42118
  26.